﻿Public Class ChangeStatusControl
    Inherits GridExtSP
    'Inherits GridExtSP

    Public Sub New()
        MyBase.New()
        Me.SaveCMD = AddressOf ChangeLotStatus
    End Sub
    '
    Public Sub New(ByVal queryName As String)
        MyBase.New(queryName)
        Me.SaveCMD = AddressOf ChangeLotStatus
    End Sub
    '
    Private Function ChangeLotStatus(ByVal aMetaDataTable As MetaDataTable) As Boolean
        Me.Cursor = Cursors.WaitCursor
        Dim SysBoxSvc As SystemBoxWSvc = New SystemBoxWSvc()
        Try
            Return SysBoxSvc.ChangeLotStatus(aMetaDataTable)
        Catch ex As Exception
            MessageWindow.ShowMessage(ex.Message, MsgBoxStyle.Information)
        End Try
        Me.Cursor = Cursors.Default
        Return False
    End Function

End Class
